home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / umich / falcon / programm.ing / falclib2.lzh / ROUTS / CLS.S < prev    next >
Text File  |  1994-08-11  |  1KB  |  97 lines
  1. *
  2. * CLS.S
  3. *
  4. *    @cls???
  5. *     clears ??? bytes.
  6. * In     a0.l=start adress
  7. *     (destroys everything)
  8. *
  9. *    ??? supported:    184320 (384*240*16bp)
  10. *            92160  (384*120*16bp)
  11. *            32000
  12. *
  13.  
  14.  
  15. @cls184320
  16.     moveq    #0,d1
  17.     moveq    #0,d2
  18.     moveq    #0,d3
  19.     moveq    #0,d4
  20.     moveq    #0,d5
  21.     moveq    #0,d6
  22.     moveq    #0,d7
  23.     move.l    d1,a1
  24.     move.l    d1,a2
  25.     move.l    d1,a3
  26.     move.l    d1,a4
  27.     move.l    d1,a5
  28.     move.l    d1,a6
  29.  
  30.     move    #885,d0
  31.     add.l    #184320,a0
  32. .cl2    movem.l    d1-d7/a1-a6,-(a0)
  33.     movem.l    d1-d7/a1-a6,-(a0)
  34.     movem.l    d1-d7/a1-a6,-(a0)
  35.     movem.l    d1-d7/a1-a6,-(a0)
  36.     dbra    d0,.cl2
  37.     movem.l    d1-d7/a1,-(a0)
  38.     rts
  39.  
  40.  
  41. @cls92160
  42.     moveq    #0,d1
  43.     moveq    #0,d2
  44.     moveq    #0,d3
  45.     moveq    #0,d4
  46.     moveq    #0,d5
  47.     moveq    #0,d6
  48.     moveq    #0,d7
  49.     move.l    d1,a1
  50.     move.l    d1,a2
  51.     move.l    d1,a3
  52.     move.l    d1,a4
  53.     move.l    d1,a5
  54.     move.l    d1,a6
  55.  
  56.     move    #442,d0
  57.     add.l    #92160,a0
  58. .cl2    movem.l    d1-d7/a1-a6,-(a0)
  59.     movem.l    d1-d7/a1-a6,-(a0)
  60.     movem.l    d1-d7/a1-a6,-(a0)
  61.     movem.l    d1-d7/a1-a6,-(a0)
  62.     dbra    d0,.cl2
  63.     movem.l    d1-d4,-(a0)
  64.     rts
  65.  
  66.  
  67. @cls32000
  68.     moveq    #0,d1
  69.     moveq    #0,d2
  70.     moveq    #0,d3
  71.     moveq    #0,d4
  72.     moveq    #0,d5
  73.     moveq    #0,d6
  74.     moveq    #0,d7
  75.     move.l    d1,a1
  76.     move.l    d1,a2
  77.     move.l    d1,a3
  78.     move.l    d1,a4
  79.     move.l    d1,a5
  80.     move.l    d1,a6
  81.  
  82.     move    #152,d0
  83.     add.l    #32000,a0
  84. .cl2    movem.l    d1-d7/a1-a6,-(a0)
  85.     movem.l    d1-d7/a1-a6,-(a0)
  86.     movem.l    d1-d7/a1-a6,-(a0)
  87.     movem.l    d1-d7/a1-a6,-(a0)
  88.     dbra    d0,.cl2
  89.     movem.l    d1-d7/a1-a6,-(a0)
  90.     movem.l    d1-d7/a1-a6,-(a0)
  91.     movem.l    d1-d7/a1-a6,-(a0)
  92.     movem.l    d1-d5,-(a0)
  93.     rts
  94.  
  95.  
  96.  
  97.